SendStatusCollection
Collection containing the send status for each recipient.
<% Set IntelliSMS = Server.CreateObject("IntelliSoftware.IntelliSMS") IntelliSMS.AccessKey = "Yva$ER%Uhs+UU[MzwEYe" IntelliSMS.SecretKey = "F{kQ^s`wVpm!EU~Bx8yB^A$N$[l{pxJA" Set SendStatusColl = IntelliSMS.SendMessageToMultipleRecipients _ ("44771012345,44771023456", "Hello", "SENDER_ID") If SendStatusColl.OverallResult <> 1 Then Summary = "Failed, Result=" & SendStatusColl.OverallResult Else For Each Status In SendStatusColl Summary = Summary & "To=" & Status.To & _ ", MessageId=" & Status.MessageId & _ ", Result=" & Status.ResultCode & "<BR>" Next End If Response.Write Summary %>
Dim IntelliSMS As New INTELLISMSLib.IntelliSMS IntelliSMS.Username = "MyUsername" IntelliSMS.Password = "MyPassword" Dim SendStatusColl As INTELLISMSLib.SendStatusCollection Set SendStatusColl = IntelliSMS.SendMessageToMultipleRecipients _ ("44771012345,44771023456", "Hello", "SENDER_ID") Dim Summary As String If SendStatusColl.OverallResult <> ResultCodes.rcOK Then Summary = "Failed, Result=" & SendStatusColl.OverallResult Else Dim Status As INTELLISMSLib.SendStatus For Each Status In SendStatusColl Summary = Summary & "To=" & Status.To & _ ", MessageId=" & Status.MessageId & _ ", Status=" & Status.ResultCode & vbCrLf Next End If MsgBox Summary
<< Back to COM Component